

ldx $4016
sta
rla
ldx $4016
orx
rla
ldx $4016
orx
rla
ldx $4016
orx
rla
ldx $4016
orx
rla
ldx $4016
orx
rla
ldx $4016
orx
rla
ldx $4016
orx
lax


ldy $4017
sta
rla
ldy $4017
ory
rla
ldy $4017
ory
rla
ldy $4017
ory
rla
ldy $4017
ory
rla
ldy $4017
ory
rla
ldy $4017
ory
rla
ldy $4017
ory
lay



;- below, from patater.com tutorial
;lda $4016  ; read for A key.
;and #1     ; check to see if down.
;bne WasDown  ; branch if it was down.
;lda $4016  ; read for B key.
;lda $4016  ; read for SELECT
;lda $4016  ; read START status
;and #1     ; see if down.
;bne StartDown  ; branch if down.
;lda $4016  ; UP
;lda $4016  ; DOWN
;lda $4016  ; LEFT
;lda $4016  ; RIGHT
